home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Phil and Dave's Excellent CD HFS Files.7z / Phil and Dave's Excellent CD HFS Files / Peripherals / HyperScan / HyperScan 1.0 / card_4064.txt < prev    next >
Text File  |  1989-02-26  |  13KB  |  537 lines

  1. -- card: 4064 from stack: in.0
  2. -- bmap block id: 2273
  3. -- flags: 4000
  4. -- background id: 3737
  5. -- name: HalfTone
  6. ----- HyperTalk script -----
  7. on arrowKey whichArrow
  8.   global halftoneEffect
  9.   if the optionKey is up then pass arrowKey
  10.   if whichArrow is up then put halftoneEffect - 1 into newEffect
  11.   else if whichArrow is down then put halftoneEffect + 1 into newEffect
  12.   else pass arrowKey
  13.   if the shiftKey is down then put 1 into newEffect
  14.   if newEffect < 1 then put 30 into newEffect
  15.   if newEffect > 30 then put 1 into newEffect
  16.   set cursor to watch
  17.   setHalftoneEffect newEffect
  18.   put card field "Effect" of card "Effects"
  19.   halftone
  20. end arrowKey
  21.  
  22. on deleteCard
  23.   answer "You can't delete the Halftone Card!"
  24.   set cantDelete of this card to true
  25. end deleteCard
  26.  
  27. on doMenu what
  28.   global brightness,contrast,oldBrightness,oldContrast
  29.   if what is not "Undo" then pass doMenu
  30.   if the tool is not "browse tool" then pass doMenu
  31.   put brightness into temp
  32.   put oldBrightness into brightness
  33.   put temp into oldBrightness
  34.   put contrast into temp
  35.   put oldContrast into contrast
  36.   put temp into oldContrast
  37.   halftone
  38. end doMenu
  39.  
  40. on enterKey
  41.   set hilite of button "Save" to true
  42.   saveCard
  43.   set hilite of button "Save" to false
  44. end enterKey
  45.  
  46. on equalize
  47.   checkError hyperScan("Equalize")
  48.   auto
  49. end equalize
  50.  
  51. on histo
  52.   global brightness,contrast,oldBrightness,oldContrast
  53.   put brightness into oldBrightness
  54.   put contrast into oldContrast
  55.   checkError hyperScan("PlotHistogram")
  56.   if brightness <> oldBrightness or contrast <> oldContrast
  57.   then halftone
  58. end histo
  59.  
  60. on mouseDown
  61.   global brightness,contrast,oldBrightness,oldContrast
  62.   put brightness into oldBrightness
  63.   put contrast into oldContrast
  64.   put the clickH into contrast
  65.   put 171 - the clickV into brightness
  66.   show button "Cross" at contrast,171-brightness
  67.   repeat until the mouse is up
  68.     put the mouseH into contrast
  69.     put 171 - the mouseV into brightness
  70.     show button "Cross" at contrast,171-brightness
  71.   end repeat
  72.   set cursor to watch
  73.   halftone
  74.   set cursor to hand
  75. end mouseDown
  76.  
  77. on saveCard
  78.   set cursor to watch
  79.   checkError hyperScan("CopyCard")
  80.   if the optionKey is down then
  81.     put "The card has been copied. Go where you wish and paste it."
  82.   else
  83.     lock screen
  84.     go to last card
  85.     doMenu "Paste Card"
  86.     go back
  87.     go back
  88.     unlock screen
  89.   end if
  90. end saveCard
  91.  
  92. on tabKey
  93.   togglePanel
  94. end tabKey
  95.  
  96. on togglePanel
  97.   put not visible of button "Panel Box" into showHide
  98.   lock screen
  99.   set visible of button "Panel Box" to showHide
  100.   set visible of button "Help" to showHide
  101.   set visible of button "Portrait" to showHide
  102.   set visible of button "Landscape" to showHide
  103.   set visible of button "Halftone" to showHide
  104.   set visible of button "Effects" to showHide
  105.   unlock screen
  106. end togglePanel
  107.  
  108. on wedge
  109.   global enhanceEdges
  110.   put zero into enhanceEdges
  111.   set cursor to watch
  112.   get hyperScan("GrayWedge")
  113.   if it is empty then auto
  114.   checkError it
  115. end wedge
  116.  
  117.  
  118.  
  119. -- part 29 (button)
  120. -- low flags: 00
  121. -- high flags: 0004
  122. -- rect: left=289 top=289 right=335 bottom=503
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: Panel Box
  131. ----- HyperTalk script -----
  132. on mouseDown
  133.   -- don't halftone
  134. end mouseDown
  135.  
  136.  
  137.  
  138. -- part 30 (button)
  139. -- low flags: 00
  140. -- high flags: 0000
  141. -- rect: left=301 top=296 right=328 bottom=333
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 19137 / 19137
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: Help
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   push card
  153.   visual effect zoom open
  154.   go card "Halftone Help"
  155. end mouseUp
  156.  
  157. on mouseDown
  158.   -- don't halftone
  159. end mouseDown
  160.  
  161.  
  162.  
  163. -- part 31 (button)
  164. -- low flags: 00
  165. -- high flags: 0000
  166. -- rect: left=340 top=296 right=328 bottom=372
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 22989 / 22989
  169. -- text alignment: 1
  170. -- font id: 0
  171. -- text size: 12
  172. -- style flags: 0
  173. -- line height: 16
  174. -- part name: Portrait
  175. ----- HyperTalk script -----
  176. on mouseUp
  177.   go to card "Portrait"
  178. end mouseUp
  179.  
  180. on mouseDown
  181.   -- don't halftone
  182. end mouseDown
  183.  
  184.  
  185.  
  186. -- part 32 (button)
  187. -- low flags: 00
  188. -- high flags: 0000
  189. -- rect: left=378 top=296 right=328 bottom=410
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 21718 / 21718
  192. -- text alignment: 1
  193. -- font id: 0
  194. -- text size: 12
  195. -- style flags: 0
  196. -- line height: 16
  197. -- part name: Landscape
  198. ----- HyperTalk script -----
  199. on mouseUp
  200.   go to card "Landscape"
  201. end mouseUp
  202.  
  203. on mouseDown
  204.   -- don't halftone
  205. end mouseDown
  206.  
  207.  
  208.  
  209. -- part 33 (button)
  210. -- low flags: 00
  211. -- high flags: 0000
  212. -- rect: left=418 top=296 right=328 bottom=450
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 15217 / 15217
  215. -- text alignment: 1
  216. -- font id: 0
  217. -- text size: 12
  218. -- style flags: 0
  219. -- line height: 16
  220. -- part name: Halftone
  221. ----- HyperTalk script -----
  222. on mouseUp
  223.   go to card "Halftone"
  224. end mouseUp
  225.  
  226. on mouseDown
  227.   -- don't halftone
  228. end mouseDown
  229.  
  230.  
  231.  
  232. -- part 34 (button)
  233. -- low flags: 00
  234. -- high flags: 0000
  235. -- rect: left=458 top=296 right=328 bottom=490
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 28277 / 28277
  238. -- text alignment: 1
  239. -- font id: 0
  240. -- text size: 12
  241. -- style flags: 0
  242. -- line height: 16
  243. -- part name: Effects
  244. ----- HyperTalk script -----
  245. on mouseUp
  246.   go to card "Effects"
  247. end mouseUp
  248.  
  249. on mouseDown
  250.   -- don't halftone
  251. end mouseDown
  252.  
  253.  
  254.  
  255. -- part 35 (button)
  256. -- low flags: 00
  257. -- high flags: 8003
  258. -- rect: left=8 top=316 right=338 bottom=78
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 1
  262. -- font id: 0
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: Save
  267. ----- HyperTalk script -----
  268. on mouseDown
  269.   set hilite of me to true
  270.   saveCard
  271.   set hilite of me to false
  272. end mouseDown
  273.  
  274.  
  275.  
  276. -- part 54 (field)
  277. -- low flags: 81
  278. -- high flags: 2004
  279. -- rect: left=250 top=46 right=287 bottom=504
  280. -- title width / last selected line: 0
  281. -- icon id / first selected line: 0 / 0
  282. -- text alignment: 0
  283. -- font id: 2
  284. -- text size: 12
  285. -- style flags: 0
  286. -- line height: 15
  287. -- part name: Directions 1
  288.  
  289.  
  290. -- part 55 (field)
  291. -- low flags: 81
  292. -- high flags: 2004
  293. -- rect: left=250 top=22 right=288 bottom=503
  294. -- title width / last selected line: 0
  295. -- icon id / first selected line: 0 / 0
  296. -- text alignment: 0
  297. -- font id: 2
  298. -- text size: 12
  299. -- style flags: 0
  300. -- line height: 15
  301. -- part name: Directions 2
  302.  
  303.  
  304. -- part 56 (field)
  305. -- low flags: 81
  306. -- high flags: 2004
  307. -- rect: left=250 top=145 right=287 bottom=504
  308. -- title width / last selected line: 0
  309. -- icon id / first selected line: 0 / 0
  310. -- text alignment: 0
  311. -- font id: 2
  312. -- text size: 12
  313. -- style flags: 0
  314. -- line height: 16
  315. -- part name: Directions 3
  316.  
  317.  
  318. -- part 57 (field)
  319. -- low flags: 81
  320. -- high flags: 2004
  321. -- rect: left=250 top=33 right=287 bottom=504
  322. -- title width / last selected line: 0
  323. -- icon id / first selected line: 0 / 0
  324. -- text alignment: 0
  325. -- font id: 2
  326. -- text size: 12
  327. -- style flags: 0
  328. -- line height: 16
  329. -- part name: Directions 4
  330.  
  331.  
  332. -- part 58 (field)
  333. -- low flags: 81
  334. -- high flags: 2004
  335. -- rect: left=250 top=49 right=288 bottom=504
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 0 / 0
  338. -- text alignment: 0
  339. -- font id: 2
  340. -- text size: 12
  341. -- style flags: 0
  342. -- line height: 16
  343. -- part name: Directions 5
  344.  
  345.  
  346. -- part 13 (button)
  347. -- low flags: 00
  348. -- high flags: 0000
  349. -- rect: left=241 top=158 right=184 bottom=272
  350. -- title width / last selected line: 0
  351. -- icon id / first selected line: 7937 / 7937
  352. -- text alignment: 1
  353. -- font id: 0
  354. -- text size: 12
  355. -- style flags: 0
  356. -- line height: 16
  357. -- part name: Cross
  358.  
  359.  
  360. -- part 59 (field)
  361. -- low flags: 81
  362. -- high flags: 2004
  363. -- rect: left=91 top=21 right=287 bottom=421
  364. -- title width / last selected line: 0
  365. -- icon id / first selected line: 0 / 0
  366. -- text alignment: 0
  367. -- font id: 2
  368. -- text size: 12
  369. -- style flags: 0
  370. -- line height: 16
  371. -- part name: Directions 6
  372.  
  373.  
  374. -- part 60 (button)
  375. -- low flags: 80
  376. -- high flags: 8003
  377. -- rect: left=102 top=259 right=281 bottom=159
  378. -- title width / last selected line: 0
  379. -- icon id / first selected line: 0 / 0
  380. -- text alignment: 1
  381. -- font id: 0
  382. -- text size: 12
  383. -- style flags: 0
  384. -- line height: 16
  385. -- part name: Exit
  386.  
  387.  
  388. -- part 61 (button)
  389. -- low flags: 80
  390. -- high flags: 8003
  391. -- rect: left=434 top=259 right=281 bottom=491
  392. -- title width / last selected line: 0
  393. -- icon id / first selected line: 0 / 0
  394. -- text alignment: 1
  395. -- font id: 0
  396. -- text size: 12
  397. -- style flags: 0
  398. -- line height: 16
  399. -- part name: OK
  400.  
  401.  
  402. -- part 62 (button)
  403. -- low flags: 80
  404. -- high flags: 8003
  405. -- rect: left=337 top=259 right=281 bottom=416
  406. -- title width / last selected line: 0
  407. -- icon id / first selected line: 0 / 0
  408. -- text alignment: 1
  409. -- font id: 0
  410. -- text size: 12
  411. -- style flags: 0
  412. -- line height: 16
  413. -- part name: Diffusion
  414.  
  415.  
  416. -- part 64 (button)
  417. -- low flags: 00
  418. -- high flags: 0002
  419. -- rect: left=83 top=318 right=336 bottom=117
  420. -- title width / last selected line: 0
  421. -- icon id / first selected line: 1300 / 1300
  422. -- text alignment: 1
  423. -- font id: 0
  424. -- text size: 12
  425. -- style flags: 0
  426. -- line height: 16
  427. -- part name: 
  428. ----- HyperTalk script -----
  429. on mouseUp
  430.   ---find out WHERE on the icon you clicked
  431.   put (item 1 of the clickLoc) - (item 1 of the Loc of me) into E
  432.  
  433.   ---if the click was on the left then
  434.   if E < 0 then
  435.     set icon of me to 1301
  436.     wait 1
  437.     set icon of me to 1300
  438.     push card
  439.     put PathWay() & "SN Feedback" into feedPath
  440.     set cursor to watch
  441.     visual effect dissolve fast
  442.     go stack feedPath
  443.  
  444.     ---if the click was on the right then
  445.   else if E > 0 then
  446.     set icon of me to 1302
  447.     wait 1
  448.     set icon of me to 1300
  449.     global navMenu
  450.     visual effect iris close to black
  451.     visual effect iris open
  452.     if navMenu is empty then put "Welcome" into navMenu
  453.     go card navMenu of stack "Support Navigator:Support Navigator"
  454.   end if
  455. end mouseUp
  456.  
  457. Function PathWay
  458. put the long name of stack "Home" into NewName
  459. delete char 1 to 7 of NewName
  460. repeat
  461.   if offset(":",NewName) is 0 then
  462.     exit repeat
  463.   else
  464.     put char 1 to offset(":",NewName) of NewName after NewPath
  465.     delete char 1 to offset(":",NewName) of NewName
  466.   end if
  467. end repeat
  468. return NewPath
  469. end PathWay
  470.  
  471.  
  472. -- part contents for card part 54
  473. ----- text -----
  474. This is the Halftone card.  The position of the white crossbar represents a brightness-and-contrast setting.  HyperScan makes an initial guess about a good brightness-and-contrast setting for the scan.  
  475.  
  476. For most scans, this default setting produces great results‚Äîsave the image and you‚Äôre done!
  477.  
  478. ‚Ä¢ When you are finished reading, 
  479.    click OK.
  480.  
  481.  
  482. -- part contents for card part 55
  483. ----- text -----
  484. You can refine the brightness-and-contrast setting as follows:
  485.  
  486. ‚Ä¢ Click in a new location (or drag the 
  487.    white crossbar to a new place).  
  488.  
  489. Moving the crossbar to the left decreases the contrast; moving it right increases the contrast.  Moving the crossbar up increases the brightness; moving it down decreases the brightness.
  490.  
  491. ‚Ä¢ When you are finished making 
  492.     adjustments, click OK.
  493.  
  494.  
  495.  
  496. -- part contents for card part 56
  497. ----- text -----
  498. You also may want to apply halftone effects to the image, either to enhance it or to get special effects.
  499.  
  500. ‚Ä¢  Click the Effects icon to go the  
  501.     Effects card.
  502.  
  503. -- part contents for card part 57
  504. ----- text -----
  505. At this point, you could continue to adjust the brightness-and-contrast setting or to apply halftone effects.
  506.  
  507. In general, the Diffusion effect produces the best results, even for line art and other high-contrast originals.
  508.  
  509. ‚Ä¢ Click Diffusion to reapply the 
  510.    Diffusion effect before going on
  511.   (otherwise, you‚Äôll keep your version).‚Ä¢ Click OK to continue.
  512.  
  513. -- part contents for card part 58
  514. ----- text -----
  515. When you are satisfied with the results, you can save the image.
  516.  
  517. You can‚Äôt change a saved image, but you can copy it to other stacks, print it, or touch it up with the Paint tools.
  518. (You can always return to this card to make more changes.)
  519.  
  520. ‚Ä¢  Click Save now to append a new 
  521.     card with a copy of the image to 
  522.     the end of the stack.
  523.  
  524.  
  525. -- part contents for card part 59
  526. ----- text -----
  527. That‚Äôs it!  You now know how to use HyperScan.  Your saved image is at the end of this stack.  In general, follow these steps to do a scan:
  528.  
  529. 1. Click either the Portrait icon or Landscape icon 
  530.     on the first card to get started.
  531. 2. Click the Question Mark icon on any card for 
  532.     information on how to proceed.
  533.  
  534. The on-line help also documents HyperScan‚Äôs shortcuts and advanced commands.
  535.  
  536. ‚Ä¢  Click Exit to end this walkthrough.  Next, you 
  537.     should read ‚ÄúGetting around in HyperScan.‚Äù